home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / CODING / PASCAL / FPKPAS65.ZIP / SRCRTLDO.ZIP / SOURCE / RTL / DOS / PRINTER.PP < prev    next >
Encoding:
Text File  |  1996-07-23  |  762 b   |  40 lines
  1. {****************************************************************************
  2.  
  3.                         FPKPascal Runtime-Library
  4.                           Copyright (c) 1994 by
  5.                              Florian Klämpfl
  6.  
  7.  ****************************************************************************}
  8.  
  9. {
  10.   History:
  11.   10.4.1994: Version 1.0
  12.              Unit ist komplett implementiert
  13. }
  14.  
  15. unit printer;
  16.  
  17.   interface
  18.   
  19.     var
  20.        lst : text;
  21.        
  22.   implementation
  23.   
  24.     var
  25.        old_exit : pointer;
  26.   
  27.     procedure printer_exit;
  28.   
  29.       begin
  30.          close(lst);
  31.          exitproc:=old_exit;
  32.       end;
  33.     
  34. begin
  35.    assign(lst,'PRN');
  36.    rewrite(lst);
  37.    old_exit:=exitproc;
  38.    exitproc:=@printer_exit;
  39. end.
  40.